10 Z$=CHR$(0)
20 GOSUB 10000
100 OPEN15,8,15
110 PRINT"[144]";
200 INPUT"[215]HAT FILE TO SYS CHANGE?";SF$
300 INPUT"[215]HAT FILE TO CALL IT   ?";DF$
400 OPEN2,8,2,SF$+",P,R"
500 OPEN3,8,3,DF$+",P,W"
600 GET#2,L$,H$:L$=L$+Z$:H$=H$+Z$
700 PRINT"[207]LD SYS ADDRESS = ";ASC(L$)+256*ASC(H$)
800 INPUT"[206]EW SYS ADDRESS =";NS$
850 PRINT"[215]ORKING..... AS HARD AS I CAN...";
900 NS=VAL(NS$)
910 H%=NS/256
920 L%=256*(NS/256-H%)
930 H$=CHR$(H%):L$=CHR$(L%)
940 PRINT#3,L$;
950 PRINT#3,H$;
960 GET#2,A$
961 I=I+1:IFI=39THENI=0:PRINT".";
965 IFST<>0THEN1000
970 A$=LEFT$(A$+Z$,1)
980 PRINT#3,A$;
990 GOTO960
1000 S=ST:PRINT:  PRINT"DONE WITH TRANSFER."
1010 CLOSE2:CLOSE3:CLOSE15
1900 IFS<>64THEN30000
2000 GOTO60000
10000 PRINT"[147]":POKE53281,3:POKE53280,12:PRINT""
10010 PRINT"[147]";:GOSUB 20000
10100 PRINT"             [211]YS   [195]HANGER":PRINT
10110 GOSUB 20000
10120 PRINT"";:GOSUB20000
10200 PRINT"            BY [202]IMMY [215]EILER":PRINT
10300 GOSUB 20000
10900 RETURN
20000 PRINT"";:FORC=1TO40:PRINT" ";:NEXT:PRINT"[145][146]":RETURN
30000 PRINT: PRINT"[147][193][193][210][199][200]!!!!":PRINT:PRINT"FAULT.. FAULT.. FAULT.."
30002 POKE 53281,9
30010 PRINT:PRINT"[212]HE FILE YOU WANTED IS NOT COMPLETE."
30020 PRINT:PRINT"[201] DIED WITH AN ERROR."
30025 PRINT:PRINT"[211]TATUS = "ST
30027 PRINT:PRINT:PRINT"           <PRESS THAT KEY>":POKE198,0:WAIT198,1
30030 GOTO60000
30040 :
60000 PRINT"[147]1. [196]O ANOTHER FILE"
60002 PRINT"2. [210]ETURN TO [204][207][193][196][211][212][193][210]."
60004 PRINT:PRINT:PRINT"[215]HICH?"
60010 POKE198,0:WAIT198,1:K=PEEK(197):GETK$
60020 IFK<>56ANDK<>59THEN60010
60030 IFK=56THEN10
60040 :
60050 REM    CONNECT BACK TO LOADSTAR
60060 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
60070 POKE198,0:POKE631,13:POKE632,13:POKE198,2:END